home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 29 / Commodore_Disc_29_19xx_-_de.d64 / light master (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  13.0 KB  |  255 lines
  1. 0 rem ******** light master ***********
  2. 1 print"bitte warten !"
  3. 2 fora=28672to28868:readx:pokea,x:y=y+x:next
  4. 3 ify<>25853thenprint"? read error in track 1[145]":end
  5. 4 print"track 1"
  6. 5 y=0:fora=16384to19597:readx:pokea,x:y=y+x:next
  7. 6 ify<>326340thenprint"? read error in track 2[145]":end
  8. 10 poke53264,0:poke24322,0
  9. 15 sys16384
  10. 20 printtab(13)"              "
  11. 30 printtab(13)" light master "
  12. 40 printtab(13)"              "
  13. 50 printtab(15)"programmed"
  14. 60 printtab(19)"in"
  15. 70 printtab(18)"1988"
  16. 80 printtab(19)"by"
  17. 90 printtab(13)"dietmar schorr"
  18. 100 printtab(7)" saarland cracking service ";
  19. 110 geta$:ifa$=""andpeek(56320)=127then110
  20. 120 print"[147]"tab(13)" light master "
  21. 125 print"satznr.: 0"
  22. 130 sys17289
  23. 140 poke198,0
  24. 141 ifpeek(24322)=1then150
  25. 142 ifpeek(24322)=3then180
  26. 143 goto200
  27. 150 a=0:input"laenge (an)";a:poke18432,a
  28. 160 a=0:input"laenge(aus)";a:poke18433,a:a=0
  29. 165 printtab(8)"* weiter oder * zurueck"
  30. 170 sys18434
  31. 180 gosub220
  32. 185 n$="":input"filename";n$
  33. 190 sys57812 n$,peek(250):sys62954:sys19342
  34. 200 gosub220
  35. 205 n$="":input"filename";n$
  36. 210 sys19320n$
  37. 220 ifpeek(250)=1thenreturn
  38. 230 open1,8,15:poke768,185:print#1:poke768,139:close1:ifst=-128thensys19342
  39. 240 return
  40. 250 rem ********* track 1 *************
  41. 260 data76,20,112,0,0,0,0,162,0,160,0,200,208,253,232,224
  42. 270 data15,208,246,96,169,0,133,250,133,251,234,169,255,141,3,221
  43. 280 data169,0,234,133,248,169,113,234,133,249,160,0,177,248,201,0
  44. 290 data240,87,174,3,112,224,0,240,3,141,21,208,174,3,112,224
  45. 300 data1,240,3,141,1,221,200,162,0,138,209,248,240,7,32,159
  46. 310 data112,170,232,208,244,200,169,0,76,177,112,224,0,240,3,141
  47. 320 data21,208,174,3,112,224,1,240,3,141,1,221,162,0,138,209
  48. 330 data248,240,7,32,159,112,170,232,208,244,165,248,24,105,3,133
  49. 340 data248,144,2,230,249,76,167,112,96,200,177,248,201,0,208,11
  50. 350 data200,177,248,201,0,208,3,76,0,112,136,136,76,42,112,132
  51. 360 data250,32,7,112,164,250,96,165,203,201,64,208,18,76,42,112
  52. 370 data96,177,248,201,0,240,195,169,0,174,3,112,76,91,112,169,0,141,1,221,96
  53. 380 rem ********* track 2 *************
  54. 390 data32,97,73,133,1,169,208,133,252,169,224,133,254,160,0,132
  55. 400 data251,132,253,162,16,177,251,145,253,200,208,249,230,252,230,254
  56. 410 data202,208,242,169,55,133,1,88,169,196,141,0,221,169,204,141
  57. 420 data136,2,169,56,141,24,208,32,68,229,160,0,185,80,64,153
  58. 430 data8,224,200,192,208,208,245,76,32,65,56,170,74,44,50,53
  59. 440 data24,36,36,60,72,72,72,0,24,40,36,60,72,72,112,0
  60. 450 data28,32,32,64,64,64,56,0,28,44,36,36,72,72,240,0
  61. 460 data60,32,32,56,64,64,112,0,60,32,32,56,64,64,64,0
  62. 470 data28,32,32,32,88,72,120,0,18,36,36,60,72,72,72,0
  63. 480 data4,8,8,8,16,16,16,0,28,8,8,8,16,16,144,96
  64. 490 data18,36,40,48,112,72,68,3,16,32,32,32,64,64,120,0
  65. 500 data34,85,85,74,130,130,132,0,17,45,45,42,74,74,68,0
  66. 510 data30,34,34,34,68,68,124,0,28,36,36,60,64,64,64,0
  67. 520 data30,34,34,34,68,76,126,1,28,36,36,60,80,80,72,0
  68. 530 data60,66,32,24,8,144,224,0,62,8,8,8,16,16,16,0
  69. 540 data18,36,36,36,72,72,120,0,18,36,36,40,72,80,96,0
  70. 550 data65,65,65,73,73,85,99,0,34,36,20,24,40,40,68,0
  71. 560 data34,36,20,24,16,32,64,0,63,2,2,4,8,16,62,0
  72. 570 data160,0,185,48,65,153,128,225,200,192,80,208,245,76,128,65
  73. 580 data126,70,74,114,114,114,126,0,8,24,40,76,12,12,28,0
  74. 590 data126,2,2,126,64,64,126,0,126,2,2,126,2,2,126,0
  75. 600 data66,66,66,126,2,2,2,0,126,64,64,126,2,2,126,0
  76. 610 data126,64,64,126,66,66,126,0,126,2,2,2,2,2,2,0
  77. 620 data126,66,66,126,66,66,126,0,126,66,66,126,2,2,126,0
  78. 630 data169,15,141,33,208,169,14,141,32,208,169,0,141,134,2,76
  79. 640 data210,65,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  80. 650 data0,0,0,0,0,0,0,0,4,0,0,12,0,0,28,0
  81. 660 data0,60,0,0,124,0,0,16,0,0,32,0,0,64,0,0
  82. 670 data128,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0
  83. 680 data0,0,162,0,189,146,65,157,0,192,232,224,64,208,245,162
  84. 690 data0,189,240,65,157,8,226,232,224,48,208,245,76,32,66,234
  85. 700 data60,60,60,60,60,60,60,60,0,0,1,3,6,12,24,48
  86. 710 data102,195,129,0,0,0,0,0,0,0,128,192,96,48,24,12
  87. 720 data96,192,192,192,252,0,0,0,6,3,3,3,63,0,0,0
  88. 730 data96,32,108,160,123,32,32,108,160,123,32,32,108,160,123,32
  89. 740 data32,108,160,123,32,32,108,160,123,32,32,108,160,123,32,32
  90. 750 data108,160,123,32,32,108,160,123,32,32,160,160,160,32,32,160
  91. 760 data160,160,32,32,160,160,160,32,32,160,160,160,32,32,160,160
  92. 770 data160,32,32,160,160,160,32,32,160,160,160,32,32,160,160,160
  93. 780 data32,32,124,160,126,32,32,124,160,126,32,32,124,160,126,32
  94. 790 data32,124,160,126,32,32,124,160,126,32,32,124,160,126,32,32
  95. 800 data124,160,126,32,32,124,160,126,32,32,32,65,32,32,32,32
  96. 810 data65,32,32,32,32,65,32,32,32,32,65,32,32,32,32,65
  97. 820 data32,32,32,32,65,32,32,32,32,65,32,32,32,32,65,32
  98. 830 data32,32,32,65,32,32,32,32,65,32,32,32,32,65,32,32
  99. 840 data32,32,65,32,32,32,32,65,32,32,32,32,65,32,32,32
  100. 850 data32,65,32,32,32,32,65,32,32,32,32,65,32,32,32,32
  101. 860 data65,32,32,32,32,65,32,32,32,32,65,32,32,32,32,65
  102. 870 data32,32,32,32,65,32,32,32,32,65,32,32,32,32,65,32
  103. 880 data32,32,66,67,68,32,32,66,67,68,32,32,66,67,68,32
  104. 890 data32,66,67,68,32,32,66,67,68,32,32,66,67,68,32,32
  105. 900 data66,67,68,32,32,66,67,68,32,32,69,32,70,32,32,69
  106. 910 data32,70,32,32,69,32,70,32,32,69,32,70,32,32,69,32
  107. 920 data70,32,32,69,32,70,32,32,69,32,70,32,32,69,32,70
  108. 930 data32,32,32,49,32,32,32,32,50,32,32,32,32,51,32,32
  109. 940 data32,32,52,32,32,32,32,53,32,32,32,32,54,32,32,32
  110. 950 data32,55,32,32,32,32,56,32,32,162,0,189,33,66,157,160
  111. 960 data204,189,213,66,157,84,205,232,224,180,208,239,162,0,169,111
  112. 970 data157,8,206,232,224,40,208,248,76,235,67,0,0,0,0,0
  113. 980 data0,0,0,0,0,124,0,3,255,128,7,255,192,15,255,224
  114. 990 data15,255,224,31,255,240,31,255,240,31,255,240,31,255,240,31
  115. 1000 data255,240,15,255,224,15,255,224,7,255,192,3,255,128,0,124
  116. 1010 data0,0,0,0,0,0,0,0,0,0,0,162,0,189,171,67
  117. 1020 data157,64,192,232,224,64,208,245,76,55,68,49,41,32,5,4
  118. 1030 data9,20,15,18,32,32,32,50,41,32,16,18,15,2,5,32
  119. 1040 data32,32,32,51,41,32,19,16,5,9,3,8,5,18,14,52
  120. 1050 data41,32,12,1,4,5,14,32,32,32,32,53,41,32,5,14
  121. 1060 data4,5,32,32,32,32,32,169,0,141,0,95,141,1,95,162
  122. 1070 data0,169,103,133,248,169,206,133,249,160,0,189,251,67,145,248
  123. 1080 data232,200,192,12,208,245,134,250,162,0,160,0,200,208,253,232
  124. 1090 data224,80,208,246,165,248,24,105,80,133,248,144,2,230,249,166
  125. 1100 data250,224,60,144,212,169,0,141,248,207,169,1,141,39,208,169
  126. 1110 data135,141,0,208,169,166,141,1,208,169,1,141,21,208,173,1
  127. 1120 data208,201,166,240,16,173,0,220,41,1,208,9,173,1,208,56
  128. 1130 data233,16,141,1,208,173,1,208,201,230,240,16,173,0,220,41
  129. 1140 data2,208,9,173,1,208,24,105,16,141,1,208,173,0,220,41
  130. 1150 data16,240,15,162,0,160,0,200,208,253,232,224,80,208,246,76
  131. 1160 data142,68,173,1,208,201,230,208,66,32,68,229,169,0,141,21
  132. 1170 data208,76,226,252,169,152,133,248,169,207,133,249,160,0,169,32
  133. 1180 data145,248,200,192,40,208,249,162,0,160,0,200,208,253,232,224
  134. 1190 data80,208,246,165,248,56,233,80,133,248,176,2,198,249,165,248
  135. 1200 data201,48,176,216,165,249,201,207,176,210,96,169,0,141,21,208
  136. 1210 data32,228,68,173,1,208,201,166,208,3,76,123,69,201,182,208
  137. 1220 data3,76,180,72,201,198,208,3,76,212,74,76,86,75,49,41
  138. 1230 data32,5,4,9,20,2,18,50,41,32,19,1,20,26,32,22
  139. 1240 data15,18,51,41,32,19,1,20,26,32,26,21,18,21,5,3
  140. 1250 data11,52,41,32,26,21,18,21,5,3,11,32,32,32,162,0
  141. 1260 data160,0,200,208,253,232,224,80,208,246,96,162,0,189,62,69
  142. 1270 data157,103,206,232,224,9,208,245,32,110,69,162,0,189,71,69
  143. 1280 data157,183,206,232,224,11,208,245,32,110,69,162,0,189,82,69
  144. 1290 data157,7,207,232,224,15,208,245,32,110,69,162,0,189,97,69
  145. 1300 data157,87,207,232,224,10,208,245,169,135,32,200,75,169,166,141
  146. 1310 data1,208,169,0,141,248,207,169,1,141,21,208,173,1,208,201
  147. 1320 data166,240,16,173,0,220,41,1,208,9,173,1,208,56,233,16
  148. 1330 data141,1,208,173,1,208,201,214,240,16,173,0,220,41,2,208
  149. 1340 data9,173,1,208,24,105,16,141,1,208,173,0,220,41,16,240
  150. 1350 data6,32,110,69,76,204,69,173,1,208,201,214,208,11,169,0
  151. 1360 data141,21,208,76,90,76,76,63,68,201,166,208,3,76,57,76
  152. 1370 data201,182,208,3,76,77,70,76,115,70,172,1,95,173,0,95
  153. 1380 data32,149,179,32,221,189,162,0,189,0,1,240,6,157,88,204
  154. 1390 data232,208,245,169,32,157,88,204,232,157,88,204,96,173,0,95
  155. 1400 data201,15,208,10,173,1,95,201,160,208,3,76,1,70,238,1
  156. 1410 data95,208,3,238,0,95,32,42,70,173,0,220,41,4,240,221
  157. 1420 data76,1,70,173,0,95,208,8,173,1,95,208,3,76,1,70
  158. 1430 data173,1,95,56,233,1,141,1,95,176,3,206,0,95,32,42
  159. 1440 data70,173,0,220,41,4,240,219,76,1,70,169,0,141,21,208
  160. 1450 data32,228,68,76,200,70,2,9,20,20,5,32,12,9,3,8
  161. 1460 data20,5,18,11,15,13,2,9,14,1,20,9,15,14,32,23
  162. 1470 data1,5,8,12,5,14,32,33,162,0,189,166,70,157,251,206
  163. 1480 data232,224,34,208,245,169,31,141,0,208,169,142,141,1,208,169
  164. 1490 data0,141,248,207,169,1,141,21,208,173,0,208,201,31,240,23
  165. 1500 data173,0,220,41,4,208,16,173,0,208,56,233,40,141,0,208
  166. 1510 data176,5,169,0,141,16,208,173,0,208,201,55,240,23,173,0
  167. 1520 data220,41,8,208,16,173,0,208,24,105,40,141,0,208,144,5
  168. 1530 data169,1,141,16,208,173,0,220,41,16,240,16,173,0,220,41
  169. 1540 data2,208,3,76,125,71,32,110,69,76,233,70,173,16,208,208
  170. 1550 data13,173,0,208,56,233,31,74,74,74,170,76,87,71,173,0
  171. 1560 data208,56,233,15,76,71,71,173,16,208,240,5,138,24,105,30
  172. 1570 data170,169,1,189,226,205,24,105,128,157,226,205,32,110,69,32
  173. 1580 data110,69,76,233,70,1,2,4,8,16,32,64,128,162,0,134
  174. 1590 data248,134,249,236,1,95,240,14,165,248,24,105,3,133,248,144
  175. 1600 data2,230,249,232,208,237,162,0,236,0,95,240,10,165,249,24
  176. 1610 data105,3,133,249,232,208,241,165,248,141,4,95,165,249,141,3
  177. 1620 data95,234,162,0,134,250,160,0,185,226,205,201,100,144,8,165
  178. 1630 data250,24,125,117,71,133,250,200,200,200,200,200,232,224,8,208
  179. 1640 data231,173,4,95,133,248,173,3,95,24,105,113,133,249,165,250
  180. 1650 data160,0,145,248,169,0,141,21,208,162,0,169,32,157,251,206
  181. 1660 data232,224,34,208,248,169,1,141,2,95,169,0,32,96,72,96
  182. 1670 data0,0,160,1,173,0,72,145,248,200,173,1,72,145,248,169
  183. 1680 data79,141,0,208,169,214,141,1,208,169,1,141,21,208,173,0
  184. 1690 data220,41,4,208,5,169,79,141,0,208,173,0,220,41,8,208
  185. 1700 data5,169,191,141,0,208,173,0,220,41,16,240,3,76,30,72
  186. 1710 data169,0,141,21,208,32,228,68,238,1,95,208,3,238,0,95
  187. 1720 data32,112,72,173,0,208,201,79,208,3,76,200,70,76,123,69
  188. 1730 data141,16,208,169,87,133,122,169,10,133,123,169,0,133,198,96
  189. 1740 data169,49,162,0,157,226,205,232,232,232,232,232,168,200,152,192
  190. 1750 data57,208,241,32,42,70,96,2,42,32,15,8,14,5,32,32
  191. 1760 data15,4,5,18,32,32,42,32,13,9,20,32,12,1,13,16
  192. 1770 data5,14,32,6,49,61,19,20,15,16,6,51,61,12,1,14
  193. 1780 data7,19,1,13,169,0,141,16,208,141,248,207,162,0,189,136
  194. 1790 data72,157,175,206,232,224,26,208,245,169,70,141,0,208,169,182
  195. 1800 data141,1,208,169,1,141,21,208,173,0,220,41,4,208,5,169
  196. 1810 data70,141,0,208,173,0,220,41,8,208,5,169,183,141,0,208
  197. 1820 data173,0,220,41,16,240,3,76,216,72,173,0,208,201,70,208
  198. 1830 data5,169,1,76,8,73,169,2,141,3,112,162,0,189,163,72
  199. 1840 data157,87,207,232,224,7,208,245,162,0,189,170,72,157,167,207
  200. 1850 data232,224,10,208,245,169,0,141,21,208,162,0,169,1,157,39
  201. 1860 data208,157,248,207,232,224,8,208,245,76,76,73,33,84,73,84
  202. 1870 data113,84,153,84,193,84,233,84,17,84,57,84,162,0,189,60
  203. 1880 data73,157,0,208,232,224,16,208,245,169,192,141,16,208,76,124
  204. 1890 data73,160,0,132,248,169,113,133,249,169,0,145,248,200,208,251
  205. 1900 data230,249,165,249,201,160,208,241,120,169,51,96,169,0,141,0
  206. 1910 data95,141,1,95,32,42,70,76,155,73,1,0,0,0,162,0
  207. 1920 data160,0,200,208,253,232,224,16,208,246,96,169,0,133,250,133
  208. 1930 data251,234,169,255,141,3,221,169,0,234,133,248,169,113,234,133
  209. 1940 data249,160,0,177,248,201,0,240,87,174,3,112,224,0,240,3
  210. 1950 data141,21,208,174,3,112,224,1,240,3,141,1,221,200,162,0
  211. 1960 data138,209,248,240,7,32,159,112,170,232,208,244,200,169,0,76
  212. 1970 data173,75,224,0,240,3,141,21,208,174,3,112,224,1,240,3
  213. 1980 data141,1,221,162,0,138,209,248,240,7,32,159,112,170,232,208
  214. 1990 data244,165,248,24,105,3,133,248,144,2,230,249,76,46,74,96
  215. 2000 data200,177,248,201,0,208,11,200,177,248,201,0,208,3,76,124
  216. 2010 data73,136,136,76,185,73,132,250,32,7,112,164,250,96,76,54
  217. 2020 data74,208,3,238,0,95,165,203,201,4,240,21,165,203,201,5
  218. 2030 data208,9,32,110,69,32,110,69,32,110,69,32,100,74,76,177
  219. 2040 data73,169,0,32,190,75,169,0,141,248,207,32,228,68,32,42
  220. 2050 data70,76,63,68,238,1,95,208,3,238,0,95,32,42,70,96
  221. 2060 data42,32,4,9,19,11,5,20,20,5,32,32,15,4,5,18
  222. 2070 data32,32,42,32,11,1,19,19,5,20,20,5,32,32,32,32
  223. 2080 data162,0,189,112,74,157,175,206,232,224,32,208,245,169,71,141
  224. 2090 data0,208,169,182,141,1,208,169,1,141,21,208,173,0,220,41
  225. 2100 data4,208,5,169,71,141,0,208,173,0,220,41,8,208,5,169
  226. 2110 data215,141,0,208,173,0,220,41,16,240,3,76,172,74,169,0
  227. 2120 data141,21,208,96,32,144,74,169,3,141,2,95,169,0,133,193
  228. 2130 data169,112,133,194,160,0,132,248,169,113,133,249,177,248,240,11
  229. 2140 data200,208,249,230,249,165,249,201,160,208,241,200,177,248,208,6
  230. 2150 data200,177,248,240,5,136,136,76,240,74,200,152,24,101,248,133
  231. 2160 data248,32,110,69,32,110,69,32,148,75,165,248,133,174,165,249
  232. 2170 data133,175,173,0,208,201,71,208,5,169,8,76,48,75,169,1
  233. 2180 data133,250,96,32,87,226,160,2,169,2,166,250,32,186,255,169
  234. 2190 data0,32,234,245,144,3,76,249,224,234,234,234,234,32,157,75
  235. 2200 data76,63,68,96,234,234,32,144,74,169,2,141,2,95,32,110
  236. 2210 data69,32,110,69,32,99,72,173,0,208,201,71,208,5,169,8
  237. 2220 data76,117,75,169,1,133,250,96,32,87,226,160,2,169,2,166
  238. 2230 data250,32,186,255,169,0,32,213,255,144,3,76,249,224,32,157
  239. 2240 data75,76,63,68,169,0,141,3,112,32,99,72,96,162,0,169
  240. 2250 data32,157,48,206,157,12,207,232,224,220,208,245,96,177,248,201
  241. 2260 data0,208,3,76,1,74,169,0,174,3,112,76,226,73,141,21
  242. 2270 data208,141,16,208,141,1,221,96,141,0,208,120,169,216,141,20
  243. 2280 data3,169,75,141,21,3,88,96,162,0,134,248,134,249,236,1
  244. 2290 data95,240,14,165,248,24,105,3,133,248,144,2,230,249,232,208
  245. 2300 data237,162,0,236,0,95,240,10,165,249,24,105,3,133,249,232
  246. 2310 data208,241,160,0,162,0,32,123,76,234,169,49,133,251,165,250
  247. 2320 data57,49,76,240,8,165,251,24,105,128,76,31,76,165,251,157
  248. 2330 data226,205,200,230,251,232,232,232,232,232,192,8,208,224,76,49
  249. 2340 data234,1,2,4,8,16,32,64,128,162,0,160,49,152,157,226
  250. 2350 data205,200,232,232,232,232,232,192,57,208,242,120,169,49,141,20
  251. 2360 data3,169,234,141,21,3,88,76,155,70,162,0,160,49,152,157
  252. 2370 data226,205,200,232,232,232,232,232,192,57,208,242,120,169,49,141
  253. 2380 data20,3,169,234,141,21,3,88,76,135,76,165,249,24,105,113
  254. 2390 data133,249,177,248,133,250,96,32,228,68,76,63,68,96
  255.